home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_1 / tools.pl < prev    next >
Perl Script  |  1996-02-29  |  1KB  |  37 lines
  1. #!./perl
  2.  
  3. # ------------------------------------------------------------
  4.  
  5. # tools.pl, by Jean-Pierre Girard (jpg@corrado.sun.com)
  6. # This allows the development environment to choose what
  7. # page to load depending on the existence of .cdev
  8.  
  9. # ------------------------------------------------------------
  10.  
  11. # Bugs and other fixes
  12.  
  13. # ------------------------------------------------------------
  14. ##############################################################################
  15. # PrintErr: display an error message in HTML format (uses $Errors)
  16. ##############################################################################
  17. %Errors = (
  18. "NoCreation", "Cannot create",
  19. "NoOpen", "Cannot open",
  20. "NoExist", "Cannot find",
  21. "NoDevice", "This is not a correct device: ",
  22. "NoWriteDev", "Couldn't write on the device!",
  23. "MisCompany", "The company name is missing!",
  24. "MisProduct1", "You need to enter at least one product name!",
  25. "MisDescription", "You need to describe what your company/Product does!",
  26. "MisCat", "You need to choose at least one category!",
  27. "MisHome", "You need to specify the file name of your home page!",
  28. "TooManyCat", "You need to choose at most three categories!",
  29. "MisPlat", "You need to specify at least one Sun platform !",
  30. );
  31.  
  32. sub PrintErr
  33. {
  34.     print STDOUT "<H3><dd><app class=\"ImageLoopItem\" img=\"file:///tmp/httpd/.products/DEV/images/blinkingAlert\" ALIGN=middle pause=0 width=56 height=49 pause = 200>$Errors{$_[0]} $_[1]</H3></dd>\n";
  35.     1;
  36. }
  37.